#!/usr/bin/perl
$line = <STDIN>;
print "That line of input was: $line";#lay' ca? ky' tu. xuong' dong` khi an' enter
chomp($text = <STDIN>); # Read the text, without the newline character
# tuong duong :
#$text = <STDIN>; #
#chomp($text);   
print "text without newline character : $text \n";
